home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12b.lzh / Include / Resources / MathResource.i < prev    next >
Text File  |  1990-08-27  |  1KB  |  46 lines
  1. {
  2.     MathResource.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Nodes.i"}
  6.  
  7. {
  8. *    The 'Init' entries are only used if the corresponding
  9. *    bit is set in the Flags field.
  10. *
  11. *    So if you are just a 68881, you do not need the Init stuff
  12. *    just make sure you have cleared the Flags field.
  13. *
  14. *    This should allow us to add Extended Precision later.
  15. *
  16. *    For Init users, if you need to be called whenever a task
  17. *    opens this library for use, you need to change the appropriate
  18. *    entries in MathIEEELibrary.
  19. }
  20.  
  21. Type
  22.  
  23.     MathIEEEResource = record
  24.     MathIEEEResource_Node    : Node;
  25.     MathIEEEResource_Flags    : Short;
  26.     MathIEEEResource_BaseAddr : Address;    { ptr to 881 if exists }
  27.     MathIEEEResource_DblBasInit : Address;
  28.     MathIEEEResource_DblTransInit : Address;
  29.     MathIEEEResource_SglBasInit : Address;
  30.     MathIEEEResource_SglTransInit : Address;
  31.     MathIEEEResource_ExtBasInit : Address;
  32.     MathIEEEResource_ExtTransInit : Address;
  33.     end;
  34.     MathIEEEResourcePtr = ^MathIEEEResource;
  35.  
  36. Const
  37.  
  38. { definations for MathIEEEResource_FLAGS }
  39.  
  40.     MATHIEEERESOURCEF_DBLBAS    = 1;
  41.     MATHIEEERESOURCEF_DBLTRANS    = 2;
  42.     MATHIEEERESOURCEF_SGLBAS    = 4;
  43.     MATHIEEERESOURCEF_SGLTRANS    = 8;
  44.     MATHIEEERESOURCEF_EXTBAS    = 16;
  45.     MATHIEEERESOURCEF_EXTTRANS    = 32;
  46.